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$! 
; IDENT v04-001 
$i 
¥ ALFMAINT = Maintain the system-wide auto-iogin file. 
$! MODIFIED BY: 
$i v04-001 BLS0327 Benn Schreiber 25=JUN-1984 
ej Use sapewterbe. make prompts clearer. 
$ ask = Ais tects 
$ sa Fe syste . 
$ alfdef = ‘'SYSSSYSTEM an ar’ 
$ eyseit = = tSparse( SYSALF al fdet "SYNTAX, ONLY*') 
$i rngnoreisyeelt) nes. then goto open_alf 
$ say 'ZALFMAINT-I-FNF, ogsyselte not found...creating new file’’ 
$ create hen Fy ae dg po *sysalf' 'Create new SYSALF 
HN sysalf auto login data file 

ORGANIZATION indexed 

PROTECTION >) tian, 
RECORD . 

SIZE 128 
KEY 0 

CHANGES no 

E "Terminal" 

PROLOG 

LENGTH 63 

POSITION 0 
KEY 1 


CHANGES YES 

DUPLICATES YES 

DATA_KEY_COMPRESSION YES 

INDER_COMPRESSION YES m 
NAME ‘Username 
LL_KEY yes, 

NULL_ VALUE 

LENGTH 63 

POSITION 63 

Sopen_alf: 


$ on Control_y then goto done 
$ open /sharé=read /read /write /err=e_noalf f1 ‘sysalf' 
$do_term: 

sa 


say ‘Enter the name of the terminal that you would Like to set’ 
say ‘‘ior automatic login, or a blank Line or EXIT to exit. 


BG tere i a saneurs = 
if t eqs. **" 2 gate done 
if fSlocate term, EXIT) 89; 6 Rien gcto done 
term = term - a ~ 
term = tere err 
etdvi (term Bt then goto e_notaterm 
yt = “isge dv iftera.’ ‘FULLDEVNAM'') 
099 oto — term 
Sgetdv Cierm, "TRA then goto get_user 


y *PERLMAINT-E-NOTATERM, ‘*term' is not a terminal." 
to do. term 
wu 
y 
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say ‘Enter the username oe would Like to automatically login on ‘'term 
say ‘Enter a blank Line to display and optionally delete the record for ‘'term'."' 


sa 
ask user ‘‘Userng 
7 user .eqs . deleterec 
read /index=0 nee erm'’’ /err=addrec f1 Line 
olduser = f$extract(63, 63, line) 
olduser := ‘olduser 
a 


say ‘The current user for terminal ‘',term,'' is , oiduser’. 7 
os yn "Do you want to change this record (Y/N)? 
res: x3 then goto do_term 
Linete 63):="user' 
write Jupdate f1_ Line 
- “Terminal “',term, '' record modified, new user is ‘‘user'."’ 


aa aieiaties de kaectidiinoistme 
w 


to do_term 
eee := *term' 
$ Line 65): ="user' 
$ write 68 63 


. say Srdrminet ° *,term,’’ user ‘‘user’ record added." 
$ gore do_term 
leterec: 


& “ene? := ‘olduser 


$s o~ ‘Terminal ‘'term', current user is ‘‘olduser'.”’ 
$ ask yn ‘Do you want to “ this record (Y/N)? ™ 
$ if -Mot. yn then goto do 
$ read /index=0 fkeys'" tern /delete f1 Line 
$ say ‘Terminal "',term, ‘' record deleted.’ 
ng A le 
te) 
$ say ‘‘ZALFMAINT-E-NONEXREC, Terminal ‘',term,"’ record does not exist." 
$ =e do_term 
$ close /nolog f1 
$ exit 
$ 
$e_noalf: 
$ status = $stat 
$ say MS ALFMAINT-£-OPENIN, Error opening "’,sysalf 
$ say fSmessage(status) 
$ go%o done 
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